<< KnotTheory`

K=PD[X[9,3,10,2],X[24,4,25,3],X[10,14,11,13],X[4,26,5,25],X[5,15,6,14],X[26,16,27,15],X[17,17,18,16],X[18,28,19,27],X[19,7,20,6],X[20,12,21,11],X[12,22,13,21],X[28,8,1,7],X[1,23,2,22],X[8,24,9,23]]

Kh[K]

DrawMorseLink[K]